home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The X-Philes (2nd Revision)
/
The X-Philes Number 1 (1995).iso
/
xphiles
/
hp48hor1
/
lnx.src
< prev
next >
Wrap
Text File
|
1991-02-21
|
714b
|
26 lines
%%HP: T(3)A(D)F(.);
@ LNX, Variable Precision decimal expansion of e.
@ by RJ Schwartz
\<<
200 \-> X Y
\<<
DO Y X 2 * LASTARG SWAP DROP \pi \->NUM * LOG - Y LOG - LASTARG
SWAP DROP 1 EXP LOG - 2 * / DUP 'Y' STO - ABS UNTIL 1 \<= END
Y IP 1 + X
\>>
10 / DUP 1 \->LIST 0 CON DUP 0 1E10 \-> P N E F R Z
\<<
'F' 1 Z PUT 2 P FOR K 0 'R' STO 1 N FOR I 'F' I DUP2 DUP2 GET R +
PUT GET DUP K / IP DUP 'F' I ROT PUT K * - Z * IP 'R' STO NEXT
1 N FOR I 'E' I DUP2 DUP2 GET 'F' I GET + PUT GET
IF Z \>= THEN 'E' I DUP2 DUP2 GET Z - PUT 1 - DUP2 GET 1 + PUT END
NEXT NEXT E
\>>
440 .5 BEEP
\>>